home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / cygwin32 / perlgcc < prev    next >
Text File  |  1998-04-02  |  3KB  |  85 lines
  1. #
  2.  
  3. # Perl script be a wrapper around the gnu gcc. the exportable perl.exe
  4. #   is built, special processing is done.
  5. # This script is caled by the gcc2 shell script when the flag
  6. #   -buildperl is passed to gcc2
  7.  
  8. print "perlgcc: building exportable perl...\n";
  9.  
  10. # get all libs:
  11. my @libobs;
  12. my @obs;
  13. my @libFlags;
  14. my $libstring;
  15. foreach (@ARGV){
  16.     if( /\.[a]$/){
  17.         push @libobs,$_;
  18.     }
  19.     elsif(/^\-l/){
  20.         push @libFlags,$_;
  21.     }
  22.     if( /\.[o]$/){
  23.         push @obs,$_;
  24.     }
  25. }
  26. $libstring = join(" ",@libobs);    
  27. $obsString = join(" ",@obs);
  28. $libflagString = join(" ",@libFlags);
  29.  
  30. # make exports file
  31. my $command = "echo EXPORTS > perl.def";
  32. print "$command\n";
  33. system($command) == 0 or die "system() failed.\n";
  34.  
  35. $command ="nm $libstring | grep '^........ [TCD] _'| grep -v _impure_ptr | sed 's/[^_]*_//' >> perl.def";
  36. print "$command\n";
  37. system($command) == 0 or die "system() failed.\n";
  38.  
  39. # Build the perl.a lib to link to:
  40. $command ="dlltool --as=as --dllname perl.exe --def perl.def --output-lib perl.a";
  41. print "$command\n";
  42. system($command) == 0 or die "system() failed.\n";
  43.  
  44. # change name of export lib to libperlexp so that is can be understood by ld2/perlld
  45. $command ="mv perl.a libperlexp.a";  
  46. print "$command\n";
  47. system($command) == 0 or die "system() failed.\n";
  48.  
  49. # get the full path name of a few libs:
  50. my $crt0 = `gcc -print-file-name=crt0.o`;
  51. chomp $crt0;
  52. my $libdir = `gcc -print-file-name=libcygwin.a`;
  53. chomp $libdir;
  54. $libdir =~ s/libcygwin\.a//g;
  55.  
  56. # when $crt0 and $libdir get used in the system calls below, the \'s
  57. # from the gcc -print-file-name get used to create special characters,
  58. # such as \n, \t.  Replace the \'s with /'s so that this does not
  59. # happen:
  60. $crt0   =~ s:\\:/:g;
  61. $libdir =~  s:\\:/:g;
  62.  
  63. # Link exe:
  64. $command = "ld --base-file perl.base -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString";
  65. print "$command\n";
  66. system($command) == 0 or die "system() failed.\n";
  67.  
  68. $command = "dlltool --as=as --dllname perl.exe --def perl.def --base-file perl.base --output-exp perl.exp";
  69. print "$command\n";
  70. system($command) == 0 or die "system() failed.\n";
  71.  
  72. $command = "ld --base-file perl.base perl.exp -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString";
  73. print "$command\n";
  74. system($command) == 0 or die "system() failed.\n";
  75.  
  76. $command = "dlltool --as=as --dllname perl.exe --def perl.def --base-file perl.base --output-exp perl.exp";
  77. print "$command\n";
  78. system($command) == 0 or die "system() failed.\n";
  79.  
  80. $command = "ld perl.exp -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString";
  81. print "$command\n";
  82. system($command) == 0 or die "system() failed.\n";
  83.  
  84. print "perlgcc: Completed\n";
  85.